MacFormat 1998 January/macformat-059.iso/mac/Demos/Martial Arts Demo/media/exit.Dxr/Internal_6.ls

Text File | 1997-09-30 | 182 b | 12 lines

on exitFrame
  startTimer()
  repeat while the timer < 1200
    if the mouseDown then
      go("QuitOut")
      exit repeat
    end if
    nothing()
  end repeat
  go("Quitout")
end